COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE OO
C00003 00003	FDEQ:	MOVE 4,(MA)
C00005 00004	BACK:	HRRZ 13,CEX
C00006 00005	FIXIT:	MOVE EN,TMP#
C00008 00006	GETO:	MOVEM EN,TMP
C00010 ENDMK
C⊗;
	TITLE OO
	EXTERNAL JOBDDT,JOBOPC
	EN←7 ↔ OU←11 ↔ MA←14 ↔ N←15 ↔ TS←10
INT:	HRRZI N,MEM
STAR:	RESET
	CLRBFI
	OUTSTR [ASCIZ/*/]
	INCHWL EN
	CAIN EN,15
	JRST STAR
	CAIN EN,612
	JRST DDTST
	HRRZI TS,(N)
INLIN:	HRRZM EN,(TS)
	ADDI TS,2
	INCHRS EN
	CAIA
	JRST INLIN
	SUBI TS,4
	HRR EN,2(TS)
	TRNN EN,600
	JRST MAIN
	SETOM OUTFLG#
	TRNE EN,400
	SETOM RFLG#
	CAIE EN,301
	JRST .+3
	SETOM ADFLG#
	JRST .+4
	CAIE EN,314
	JRST MAIN+1
	SETOM LITF#
	ADDI TS,2
	OUTSTR [ASCIZ/
/]
MAIN:	OUTSTR [ASCIZ/ /]
	HRRZI MA,MEM
	HRRZM N,CEX#
FDEQ:	MOVE 4,(MA)
	HRRZI 5,(N)
LKMO:	CAMN 4,(5)
	JRST EQU
ADIN:	ADDI 5,2
	CAIGE 5,(TS)
	JRST LKMO
	ADDI MA,2
	CAIGE MA,(N)
	JRST FDEQ
	HRR MA,CEX
	ADDI N,2
	CAIGE N,(TS)
	JRST FDEQ
	JRST BACK
EQU:	HRRZI OU,(MA)
	CAILE TS,2(5)
	CAIG N,2(MA)
	JRST CKLA
	MOVE 6,2(MA)
	CAMN 6,2(5)
	HRRI OU,2(MA)
CKLA:	CAIGE 5,2(N)
	JRST MVM
	HRR 6,-2(5)
	CAIE MA,2(6)
	JRST MVM
	HRRZI 6,2
	CAIE OU,(MA)
	ADDI 6,2
	SUBI 5,2
	HLL OU,(5)
	JRST .+5
MVM:	CAIN OU,(MA)
	JRST ADIN
	HRLI OU,400000(MA)
	HRRZI 6,2
	MOVEM OU,(5)
	AOBJP OU,
	MOVEM OU,1(5)
	ADDI 5,2
	SUBI TS,(6)
	ADDI 6,(5)
	HRLI 6,(6)
	HRRI 6,(5)
	BLT 6,(TS)
	HRRZI 6,-2(TS)
	CAME 6,CEX
	JRST LKMO
BACK:	HRRZ 13,CEX
	HRRZI 5,(13)
GXO:	MOVE EN,(5)
	HRRZI 6,(EN)
	TLNE EN,400000
	JRST MINS
	HRRZI OU,(5)
	HRLI OU,400000(OU)
	MOVEM OU,1(5)
	HRRZI 6,MEM
MINS:	ADDI 6,2
	CAIL 6,(13)
	JRST NXO
	CAME EN,(6)
	JRST MINS
	HRRZI OU,1(6)
	HRLI OU,400000(OU)
	MOVEM OU,1(5)
NXO:	ADDI 5,2
	CAIGE 5,(TS)
	JRST GXO
	CAIE TS,2(13)
	JRST NOT1
	SKIPL OUTFLG
	JRST TROAWY
	CAIE 6,(13)
	JRST FIXIT
NOT1:	HRRZI EN,-2(TS)
	HRLI EN,400000(13)
	MOVE OU,EN
	AOBJP OU,
	SKIPL OUTFLG
	JRST GETO
	MOVEM EN,(TS)
	MOVEM OU,1(TS)
	HRRZI OU,1(TS)
	HRLI OU,400000(OU)
	SKIPL ADFLG
	ADDI TS,2
FIXIT:	MOVE EN,TMP#
	HRRZI 6,(EN)
	ADDI 6,2
	CAIL 6,(13)
	JRST NSEEN
	CAME EN,(6)
	JRST .-4
	SKIPL ADFLG
	MOVEM OU,1(6)
	JRST CKREP
NSEEN:	MOVEM EN,(TS)
	MOVEM OU,1(TS)
	HRRZI 6,(TS)
	ADDI TS,2
CKREP:	SETZM OUTFLG
	SKIPGE ADFLG
	JRST ADER
	SKIPGE RFLG
	JRST RPLACE
	SKIPL LITF
	JRST GETO
	SUB OU,[1,,1]
	MOVEM OU,1(6)
	SETZM LITF
	JRST GETO
RPLACE:	HRR OU,(OU)
	TLZ OU,400000
	TRO OU,400000
	MOVEM OU,1(6)
	SETZM RFLG
	JRST GETO
ADER:	MOVE 5,1(6)
	MOVE EN,-1(5)
	MOVEM EN,(TS)
	MOVEM 5,1(TS)
	MOVE EN,-1(OU)
	MOVEM EN,2(OU)
	MOVEM OU,3(TS)
	HRRZI OU,2(TS)
	HRLI OU,400000(TS)
	MOVEM OU,4(TS)
	AOBJP OU,
	MOVEM OU,5(TS)
	HRRZI OU,5(TS)
	HRLI OU,400000(OU)
	MOVEM OU,1(6)
	ADDI TS,6
	SETZM ADFLG
	CAIA
TROAWY:	SUBI TS,2
GETO:	MOVEM EN,TMP
	HRRZI N,(TS)
	HRRZI MA,(N)
	HRLI MA,700
	HRRZI 13,(N)
	ADDI 13,200
	TLZN OU,400000
	TRNN OU,400000
	JRST GOUT
	MOVE EN,OU
	HRRZI 4,777775
	JRST MKOUT
PUDO:	HRLI OU,(4)
	PUSH 13,OU
	MOVE OU,EN
GOUT:	HLRZ 4,OU
MOR:	MOVE EN,(4)
	TLZE EN,400000
	JRST PUDO
	TRNN EN,400000
	JRST DPCH
MKOUT:	HLRZ 6,EN
	HRLI EN,(EN)
	TRZ EN,400000
	MOVEM EN,(6)
	CAIA
DPCH:	IDPB EN,MA
ADO:	ADDI 4,2
	CAIG 4,(OU)
	JRST MOR
	TLNN 13,777777
	JRST TYOUT
	POP 13,OU
	HLRZ 4,OU
	JRST ADO
TYOUT:	HRRZI EN,15
	IDPB EN,MA
	HRRZI EN,12
	IDPB EN,MA
	SETZ EN,
	IDPB EN,MA
	OUTSTR 1(N)
	JRST STAR
DDTST:	SKIPN JOBDDT
	JRST STAR
	HRRZI OU,STAR
	MOVEM OU,JOBOPC
	HRRZ OU,JOBDDT
	JRST (OU)
PATCH:	BLOCK 100
MEM:	BLOCK 22000
	END INT